今天的範例,我會以一位服飾店老闆的角度來說明,在經營服飾店的過程中,進貨的商品種類多不勝數,同時需要確保價格設定是否合理,才不會做賠本生意。
Sub 是否賺錢1()
For i = 2 To 11
‘當儲存格F的數值小於0
If Cells(i, "F") < 0 Then
‘儲存格G輸入沒有
Cells(i, "G").Value = "沒有"
End If
Next i
End Sub
Sub 是否賺錢2()
For i = 2 To 11
‘當儲存格F的數值小於0
If Cells(i, "F") < 0 Then
‘儲存格G輸入沒有
Cells(i, "G").Value = "沒有"
Else
‘大於0時,儲存格H輸入有
Cells(i, "H").Value = "有"
End If
Next i
End Sub
Sub 是否賺錢3()
For i = 2 To 11
是否賺錢 = Cells(i, "F") < 0
Cells(i, "I").Value = IIf(是否賺錢, "沒有", "有")
Next
End Sub